/* GUI CONVERTED from rscadj1.p (converter v1.75) Fri May 18 04:06:53 2001 */
/* rscadj1.p - PROPAGATE CUMULATIVE RECEIVED QUANTITY TO CENTRAL DB    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                 */
/* All rights reserved worldwide.  This is an unpublished work.        */
/* $Revision: 1.2 $                                                    */
/*V8:ConvertMode=Maintenance                                           */
/* $Revision: 1.2 $    BY: Kaustubh K.    DATE: 05/16/01 ECO: *M17N*   */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/
{mfdeclre.i}

define input parameter l_pod_nbr     like pod_nbr        no-undo.
define input parameter l_pod_line    like pod_line       no-undo.
define input parameter l_pod_cum_qty like pod_cum_qty[1] no-undo.

find first pod_det
   where pod_nbr  = l_pod_nbr
     and pod_line = l_pod_line exclusive-lock no-error.
if available pod_det
then
   pod_cum_qty[1] = l_pod_cum_qty.
